Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00105_Script_RobTour

Text File | 1999-04-25 | 5KB | 223 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------
-------*This script is not used in this version of the movie*----------

property mySprite, NeutralName, RolloverName,  maxSlideSpeed, maxFlashSpeed,¼
         AnimationIsOver,planeName
global  slideSpeed,flashSpeed,memberCount,myFrame, startAnimation


on new me
  set startAnimation = FALSE
  set AnimationIsOver = FALSE
  set maxSlideSpeed = 0
  set maxFlashSpeed = 2
  set mySprite = the spriteNum of me
  set NeutralName = getNeutralName(me, mySprite)
  set RolloverName = NeutralName&"-rol"
  set planeName = getPlaneName (me)
end

on getPlaneName me
  set Name = NeutralName
  repeat with i =  the Number of Chars in Name down to 1
    if char i of Name <> "_" then
      delete char i of Name
    else
      delete char i of Name
      exit repeat
    end if
  end repeat

  return Name

end


on mouseEnter me
  if not AnimationIsOver then
    set the member of sprite mySprite = member  RolloverName
    --  set the member of sprite linkedSprite = member  linkedHiliteName
  end if

end

on mouseLeave me
  if not AnimationIsOver then
    set the member of sprite mySprite = member  NeutralName
    --  set the member of sprite linkedSprite = member  linkedNeutralName
  end if

end

on mouseUp me
  set startAnimation = TRUE
  set memberCount = 0
  set slideSpeed = 0
  set flashSpeed = 0
  --  sendAllSprites(#layoutPuppetsOff)
  --  go to frame frameNameRoot&Index
end






on getNeutralName me,SpriteNum

  set aMember = the member of sprite spriteNum
  set Name = the name of member aMember
  if Name contains "-" then
    repeat with i = the Number of Chars of Name down to 1
      if char i of Name <> "-" then
        delete char i of Name
      else
        delete char i of Name
        exit repeat
      end if
    end repeat
  end if


  return Name

end


on exitFrame me
  set myframe = the frame
  put myframe

  if myframe <> label("iexterior") then
    slideButton me
  else
    set startAnimation = TRUE
    flashPlane me
  end if


  if AnimationIsOver then
    --    set the member of sprite mySprite = memberCount&"-"&planeName
    oldScript me
    oldMouseUp me
  end if


end


on doAnimation me

  if memberCount<=14 then
    slideButton me
  else
    go to frame "iexterior"
    --    flashPlane me
  end if
  if myFrame = label("iexterior") then
    flashPlane me
  end if




end

on slideButton me
  if startAnimation then
    if slideSpeed >= maxSlideSpeed then
      set the member of sprite mySprite = memberCount&"-"&planeName
      set memberCount = memberCount+1
      set slideSpeed = 0
      if memberCount > 15 then
        go to frame "Iexterior"
      end if
    end if
    set slideSpeed = slideSpeed+1
  end if

end


on flashPlane me
  if startAnimation then
    if flashSpeed >= maxFlashSpeed then
      set the member of sprite mySprite = memberCount&"-"&planeName
      set memberCount = memberCount+1
      set flashSpeed = 0

      if memberCount > 19 then
        set startAnimation = FALSE
        set AnimationIsOver = TRUE
        --      set memberCount = 0

      end if

    end if
    set flashSpeed = flashSpeed+1
  end if

end





--on layoutPuppetsOff me
--  puppetsprite mySprite, false
--end

on oldScript me
  global gFrame, menuController
  set gFrame=the frame
  sound stop(1)
  sound stop(2)
  --  updatestage


  if the name of member the member of sprite mysprite contains "-rol" then

    puppetsound 3,"qtvrstrt"
  else
    puppetsound 3,"mousedn"

    if IsQTVRMovie(gQTVRObj) then
      getview
      closemovie
    else
      puppetsprite 22 false
    end if
  end if

  sendAllSprites(#CDSmallMenuPuppetsOff)
  sendAllSprites(#CDMenuPuppetsOff)
  sendAllSprites(#layoutPuppetsOff)
  deselect menuController
  --  pass
end

on oldMouseUp me
  global Fqtvr

  --back to QTVR button
  puppetSprite 22, false

  resetInfo
  if Fqtvr = "" then
    set Fqtvr="no"
    sound playfile 1,"instr4"
  end if
  go to "Pexterior"
end